﻿Public Class ViewModelParametrerDeroulement
    Inherits ViewModelTabSectionBase

    Private _ListeDeroule As DataView
    Private _ListeDerouleHistoCRT As DataView
    Private _ListeDerouleCBP As Object

    Public ReadOnly Property ListeDeroule As DataView
        Get
            If _ListeDeroule Is Nothing Then
                Dim datamanager As New DataManager

                _ListeDeroule = New DataView(datamanager.Dataset.Deroule)
            End If
            Return _ListeDeroule
        End Get
    End Property

    Public ReadOnly Property ListeDerouleHistoCRT As DataView
        Get
            If _ListeDerouleHistoCRT Is Nothing Then
                Dim datamanager As New DataManager

                _ListeDerouleHistoCRT = New DataView(datamanager.Dataset.Deroule_HistoCrt)
            End If
            Return _ListeDerouleHistoCRT
        End Get
    End Property

    Public ReadOnly Property ListeDerouleCBP As DataView
        Get
            If _ListeDerouleCBP Is Nothing Then
                Dim datamanager As New DataManager

                _ListeDerouleCBP = New DataView(datamanager.Dataset.Deroule_CBP)
            End If
            Return _ListeDerouleCBP
        End Get
    End Property
End Class
